home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2000 January / Macworld (2000-01).dmg / QuarkXPress 4.10 update / 3rd Party / Demo XTs / Layout Ltd. Demos / ArabicXT4.0 Demo - MAC.sea / ArabicXT4.0 Demo - MAC / ArabicXT™ 4.0 DEMO - MAC.rsrc / PSAX_1015 < prev    next >
Text File  |  1998-09-01  |  2KB  |  41 lines
  1. /shgr{chc 0 get 2 and 0 eq{100 45{dup mul exch dup mul add 1. exch sub}setscreen
  2.  .8}{1}ifelse H}def
  3. /setchc{chc exch 0 exch put}B
  4. /chkch{currentfont dup/Encoding 2 copy known{get 2 index 0 get get dup/.notdef ne
  5.  {exch/CharStrings 2 copy known{get exch known not}{p3 T}ifelse}
  6.  {p2 T}ifelse}{p3 T}ifelse}B
  7. /xpsh{doss ss and{sym fmtx makefont/xpfs X
  8.  {s1 0 3 -1 roll put
  9.  s1 chkch{g xpfs setfont M cps G mif}
  10.  {M}ifelse}forall}{M}ifelse}B
  11. /xpash{doss ss and{sym fmtx makefont/xpfs X
  12.  {s1 0 3 -1 roll put 2 copy
  13.  s1 chkch{g xpfs setfont N cps G mif}
  14.  {N}ifelse}forall p2}{N}ifelse}B
  15. /xpwsh{doss ss and{sym fmtx makefont/xpfs X
  16.  {s1 0 3 -1 roll put 3 copy
  17.  s1 chkch{g xpfs setfont Y cps G mif}
  18.  {Y}ifelse}forall p3}{Y}ifelse}B
  19. /xpawsh{doss ss and{sym fmtx makefont/xpfs X
  20.  {s1 0 3 -1 roll put 5 copy
  21.  s1 chkch{g xpfs setfont Q cps G mif}
  22.  {Q}ifelse}forall p2 p3}{Q}ifelse}B
  23. /dAxt553{dup doss ss and{sym fmtx makefont/xpfs X
  24.  0 0 3 -1 roll{s1 0 3 -1 roll put
  25.  s1 chkch{g xpfs setfont w G}
  26.  {w}ifelse 3 -1 roll add 3 1 roll add exch}forall}
  27.  {w}ifelse pop 3 -1 roll sub 3 -1 roll div
  28.  3 -1 roll exch sub 0 32 3 -1 roll 0 5 -1 roll
  29.  doss ss and{xpash p3}{Q}ifelse}B
  30. /d{count 6 ge{5 index 65536 eq{pop pop pop pop pop pop}{dAxt553}ifelse}{dAxt553}ifelse}B
  31. /DAxt553{dup doss ss and{sym fmtx makefont/xpfs X
  32.  0 0 3 -1 roll{s1 0 3 -1 roll put
  33.  s1 chkch{g xpfs setfont w G}
  34.  {w}ifelse 3 -1 roll add 3 1 roll add exch}forall}
  35.  {w}ifelse pop 3 -1 roll exch sub 3 -1 roll div 0 3 -1 roll xpash}B
  36. /D{count 3 ge{2 index 65536 eq{pop pop pop}{DAxt553}ifelse}{DAxt553}ifelse}B
  37. /sshAxt553{2 copy g dup vtd{neg}if rm shgr xpsh pop G xpsh}B
  38. /ssh{count 3 ge{2 index 65536 eq{pop pop pop}{sshAxt553}ifelse}{sshAxt553}ifelse}B
  39. /stdAxt553{6 copy g dup vtd{neg}if rm shgr d pop G d}B
  40. /std{count 7 ge{6 index 65536 eq{pop pop pop pop pop pop pop}{stdAxt553}ifelse}{stdAxt553}ifelse}B
  41.